home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
editor
/
edt10.lha
/
Beispiele
/
Umlaute.edt
< prev
next >
Wrap
Text File
|
1995-02-28
|
542b
|
25 lines
/* edt */
OPTIONS RESULTS
a=GetClip("Umlaute?")
IF a="AUS" THEN DO
'SetKey "ä" `Insert "ä"`'
'SetKey "Ä" `Insert "Ä"`'
'SetKey "ü" `Insert "ü"`'
'SetKey "Ü" `Insert "Ü"`'
'SetKey "ö" `Insert "ö"`'
'SetKey "Ö" `Insert "Ö"`'
'SetKey "ß" `Insert "ß"`'
SetClip("Umlaute?","AN")
END
ELSE DO
'SetKey "ä" `Insert "ae"`'
'SetKey "Ä" `Insert "Ae"`'
'SetKey "ü" `Insert "ue"`'
'SetKey "Ü" `Insert "Ue"`'
'SetKey "ö" `Insert "oe"`'
'SetKey "Ö" `Insert "Oe"`'
'SetKey "ß" `Insert "ss"`'
SetClip("Umlaute?","AUS")
END